Micom Basic 1995 October/CD [BM9510].bin/programs/lotus/lotus001.dsk/MACROS/123W.SMM

INI File | 1994-08-11 | 5.5 KB | 382 lines

[ver]
    4
[sty]
    jmacro.sty
[files]
[charset]
    82
    SHIFTJIS (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[fldnames]
    ╠¿░┘─▐1
    ╠¿░┘─▐2
    ╠¿░┘─▐3
    ╠¿░┘─▐4
    ╠¿░┘─▐5
    ╠¿░┘─▐6
    ╠¿░┘─▐7
    ╠¿░┘─▐8
[desc]
    1-2-3é╠ïNô«
    Lotus WPD Marketing
    Beginner
    Exec, ActivateApp
    noautorun
    775421126
    34
    674329275
    328
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[l1]
    0
[pg]
    2
    57 0 45 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    82 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
Macro by <+!>Charlie Pappas<-!>


@Function@function execsuite()

app = "123w.exe"

appname = "1-2-3 for Windows"

extname = "wk3"

ignorekeyboard(2)

declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions

declare getprofile(xappname)

declare writeprofile(path, xappname)

declare tryit(path, xapp)

declare wininisrch(xextname)

defstr path;

if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running

    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it

    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>

    return 1

endif

if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>

    return 1

endif


if tryit(wininisrch(extname), app) <;> 31

    return 1

endif


again:

if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is

    if tryit(path, app) <;> 31

        writeprofile(path, appname)

    else

        goto again

    endif

endif

end function


@Function@function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app

doschdir(path)

return exec(strcat$(path, app), "")

end function


@Function@function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works

writeprofilestring("LotusApps", appname, path, "amipro2.ini")

end function


@Function@function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec

defstr path;

if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""

    return path

endif

return getprofilestring$("LotusApps", appname, "amipro.ini")

end function


function wininisrch(extname)

defstr extpath, extstr;

if assign(&extstr, GetProfileString$("Extensions", extname, "win.ini")) <<<;> ""

    extpath = Left$(extstr, len(extstr) - 6 - 8)

<:#240,9071>    return extpath

<:#240,9071>endif

<:#240,9071>end function

<:#240,9071>

@Function@<:#269,9071>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe

<:#240,9071>defstr box;

<:#240,9071>filledit(9001, "*.exe")

<:#240,9071>filledit(8007, app)

<:#240,9071>if assign(&box, dialogbox(".", "findapp")) <<<;> 1

<:#240,9071>    return 0

<:#240,9071>endif

<:#240,9071>return getcurrentdir$()

<:#240,9071>end function

<:#240,9071>

<:#240,9071>DIALOG    findapp

<:#480,9071>-2134376448    7    72    33    200    96    ""    ""    "▒╠▀╪╣░╝«▌é¬î⌐é┬é⌐éΦé▄é╣é±"

<:#240,9071>FONT    8    "System"

<:#480,9071>6    33    66    8    1000    1342177280    "static"    "╠▀█╕▐╫╤é╠╩▀╜û╝(&P)"    0

<:#240,9071>6    44    60    41    9001    1352728579    "listbox"    ""    0

<:#240,9071>156    1    40    12    1    1342373889    "button"    "OK"    0

<:#240,9071>156    16    40    12    2    1342373888    "button"    "╖¼▌╛┘"    0

<:#240,9071>78    32    80    8    7999    1342177280    "static"    ""    0

<:#480,9071>6    4    146    8    1006    1342177280    "static"    "ăé╠╠▀█╕▐╫╤é╠╩▀╜û╝é≡ÄwÆΦé╡é─é¡é╛é│éó"    0

<:#240,9071>6    16    106    8    8007    1342177280    "static"    ""    0

END DIALOG

>

[Embedded]
00003780
>
[macsum] 7
execsuite 0 0 5 2
tryit 507 2 1 36
writeprofile 588 2 1 41
getprofile 662 1 2 45
wininisrch 836 1 3 53
missouri 1020 1 2 61
findapp 1177 0 -1 71
[macse]
14 execsuite
7 "123w.exe"
8 1
7 "1-2-3 for Windows"
8 2
7 "wk3"
8 3
0 32 2
0 1032 "{2}"
13
11 00000152
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000238
5 1
15
9
16 wininisrch "{3}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000324
5 1
15
9
16 missouri "{1}"
13
0 805 &4 [X]
13
5 0
18 1
11 00000495
16 tryit "{4}" "{1}"
13
5 31
18 3
11 00000482
16 writeprofile "{4}" "{2}"
10 00000495
10 00000324
6 0
15
9
14 tryit
0 781 "{0}"
0 16 "{0}" "{1}"
13
0 22 [X] ""
13
15
9
6 2
15
9
14 writeprofile
0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
6 2
15
9
14 getprofile
0 286 "LotusApps" "{0}" "amipro2.ini"
13
0 805 &2 [X]
13
7 ""
18 1
11 00000113
6 2
15
9
0 286 "LotusApps" "{0}" "amipro.ini"
13
15
9
6 1
15
9
14 wininisrch
0 286 "Extensions" "{0}" "win.ini"
13
0 805 &3 [X]
13
7 ""
18 1
11 00000172
0 14 "{3}"
13
5 6
3 1
5 8
3 1
0 806 "{3}" [X]
13
8 2
6 2
15
9
6 1
15
9
14 missouri
0 31 9001 "*.exe"
0 31 8007 "{0}"
0 26 "." "findapp"
13
0 805 &2 [X]
13
5 1
18 1
11 00000127
5 0
15
9
0 290
13
15
9
6 1
15
9
DIALOG findapp
-2134376448 7 72 33 200 96 "" "" "▒╠▀╪╣░╝«▌é¬î⌐é┬é⌐éΦé▄é╣é±"
FONT 8 "System"
6 33 66 8 1000 1342177280 "static" "╠▀█╕▐╫╤é╠╩▀╜û╝(&P)" 0
6 44 60 41 9001 1352728579 "listbox" "" 0
156 1 40 12 1 1342373889 "button" "OK" 0
156 16 40 12 2 1342373888 "button" "╖¼▌╛┘" 0
78 32 80 8 7999 1342177280 "static" "" 0
6 4 146 8 1006 1342177280 "static" "ăé╠╠▀█╕▐╫╤é╠╩▀╜û╝é≡ÄwÆΦé╡é─é¡é╛é│éó" 0
6 16 106 8 8007 1342177280 "static" "" 0
00003805